﻿Imports System.Data
Public Class KhuVucBUS
    Public Sub Insert(ByVal dc As KhuVucDTO)
        Dim khuVucDAO As New KhuVucDAO
        khuVucDAO.Insert(dc)
    End Sub
    Public Sub Delete(ByVal dc As KhuVucDTO)
        Dim khuVucDAO As New KhuVucDAO
        khuVucDAO.Delete(dc)
    End Sub
    Public Sub Update(ByVal dc As KhuVucDTO)
        Dim khuVucDAO As New KhuVucDAO
        khuVucDAO.Update(dc)
    End Sub
    Public Function GetAll() As DataTable
        Dim khuVucDAO As New KhuVucDAO
        Dim dt As New DataTable
        dt = khuVucDAO.GetAll()
        Return dt
    End Function
End Class
